home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmptag.data
< prev
next >
Wrap
Text File
|
1986-07-10
|
3KB
|
111 lines
#(
#!
(lisp::in-package 'user::compiler)
lisp::tagbody
compiler::c1tagbody
compiler::c1special
compiler::c2tagbody
compiler::c2
lisp::go
compiler::c1go
compiler::c2go
lisp::tag
(lisp::defstruct lisp::tag compiler::name compiler::ref compiler::ref-clb compiler::ref-ccb compiler::label compiler::unwind-exit compiler::var)
system::defstruct-form
system::is-a-structure
((compiler::name lisp::nil lisp::nil lisp::nil 0) (compiler::ref lisp::nil lisp::nil lisp::nil 1) (compiler::ref-clb lisp::nil lisp::nil lisp::nil 2) (compiler::ref-ccb lisp::nil lisp::nil lisp::nil 3) (compiler::label lisp::nil lisp::nil lisp::nil 4) (compiler::unwind-exit lisp::nil lisp::nil lisp::nil 5) (compiler::var lisp::nil lisp::nil lisp::nil 6))
system::structure-slot-descriptions
system::structure-include
system::structure-print-function
system::structure-type
system::structure-named
compiler::tag-name
(lisp::tag . 0)
system::structure-access
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 0 system::v))
system::setf-lambda
system::setf-update-fn
system::setf-method
system::setf-documentation
compiler::tag-ref
(lisp::tag . 1)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 1 system::v))
compiler::tag-ref-clb
(lisp::tag . 2)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 2 system::v))
compiler::tag-ref-ccb
(lisp::tag . 3)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 3 system::v))
compiler::tag-label
(lisp::tag . 4)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 4 system::v))
compiler::tag-unwind-exit
(lisp::tag . 5)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 5 system::v))
compiler::tag-var
(lisp::tag . 6)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 6 system::v))
7
system::structure-offset
(compiler::make-tag)
system::structure-constructors
system::structure-documentation
compiler::*tags*
:name
:ref
:ref-ccb
:ref-clb
lisp::progn
compiler::*last-label*
1
compiler::*unwind-exit*
compiler::*compiler-output1*
compiler::*exit*
compiler::*value-to-go*
compiler::trash
compiler::*vs*
compiler::frame
compiler::*clink*
compiler::*ccb-vs*
0
"The tag name ~s is not a symbol nor an integer."
"The tag ~s is undefined."
compiler::*info*
compiler::make-tag
compiler::copy-tag
compiler::tag-p
compiler::c2tagbody-local
compiler::c2tagbody-body
compiler::c2tagbody-clb
compiler::c2tagbody-ccb
compiler::c2go-local
compiler::c2go-clb
compiler::c2go-ccb
:label
:unwind-exit
:var
system::copy-structure
compiler::make-info
lisp::typep
compiler::c1expr*
compiler::c1nil
compiler::add-object
compiler::unwind-exit
compiler::wt1
compiler::c2expr
compiler::vs-push
compiler::wt-vs
compiler::wt-clink
compiler::clink
compiler::ccb-vs-push
compiler::wt-vs*
compiler::too-few-args
compiler::too-many-args
compiler::cmperr
compiler::cb
compiler::lb
compiler::unwind-no-exit
compiler::wt-ccb-vs
)